home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 32 / Tiger_Disk_032_1996-11_Tiger-Crew-Disk_de_Side_A.d64 / flying letters (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  573b  |  14 lines
  1. 10 bs=1024:f=55296:poke53280,8:poke53281,0:dima$(9):fort=0to9:reada$(t):next
  2. 20 data"tiger-disk-demo"
  3. 30 data"diese routine wirft die woerter"
  4. 40 data"buchstabenweise auf den screen"
  5. 50 data"der text steht in den zeilen ab 30"
  6. 60 data"die anzahl der zeilen steht in","den zeilen 10 und 100"
  7. 70 data"bei aenderung bitte dimensionieren!"
  8. 80 data"wir wuenschen dir viel spass","mit dieser routine!","t i g e r c r e w"
  9. 90 ifs1thenlist
  10. 100 fori=0to9:a$=a$(i):a=int(20-len(a$)/2):print"[147][153]"tab(a)a$
  11. 110 fork=bs+atobs+a+len(a$):x=peek(k):forn=k+40tok+40*18step40
  12. 120 poken,x:poken-bs+f,4:poken-40,32:nextn,k
  13. 160 forj=1to22:print"":fort=1to20:next:nextj,i:s1=s1+1:goto90
  14.